home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Directorty Opus 5 - Magellan 2
/
Opus 5 - Magellan 2.iso
/
Archiv
/
Opus2MFax.lha
/
opus-mfax
/
Opus-Fax.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-08-02
|
3KB
|
96 lines
/*
** $VER: OPUS TO MFax 0.1 (02 Aug 1996) **
**
** © 1996 Claus Dilly
**
** PROGRAMNAME:
** OPUS TO MFax
**
** FUNCTION:
** Datei von Opus an MultiFax übergeben und als Fax absenden
**
** $HISTORY:
**
** 02 Aug 1996 : 0.01: Initial Release
*/
/*F-AN */ /* Configuration */
PRINTER="Work3:Drucker/PrintFiles"
/*F-AUS*/
/*F-AN */ /* Port-Abfrage */
/*
parse source . . . . . port /* Welcher Port ist aktiv */
port = strip(port) /* Lösche Leezeichen vom Portnamen */
OPUSport = port /* Übergebe Portnamen an Variable */
*/
OPUS = ADDRESS()
/*F-AUS*/
/*F-AN */ /* Library abfragen */
OPTIONS RESULTS
IF ~show("L","rexxarplib.library") THEN DO
ADDLIB("rexxarplib.library",0,-30,0)
END
/*F-AUS*/
/*F-AN */ /* Window-Status abfragen */
ADDRESS value OPUS /* Adresse an DirectoryOpus übergeben */
BUSY ON /* Mauszeiger auf BUSY stellen */
STATUS 3; FENSTER=RESULT /* Abfragen welches Fenster aktiv ist */
STATUS 7 FENSTER; ANWAHL=RESULT /* Abfragen ob ein File angewählt ist */
/*F-AUS*/
/*F-AN */ /* Fax versenden */
IF ANWAHL <=0 THEN /* Wenn nichts angewählt wurde */
DO
NONE /* Alle angewählten Einträge deselektieren */
NOTIFY ">>> DOPUS-REQUEST <<<\\Bitte zuerst ein File anwählen !\\"
BUSY OFF /* Mauszeiger auf NORMAL stellen */
END
ELSE
DO /* Wenn ein File angewählt wurde */
STATUS 13 "-1"; PATH=RESULT /* Name des Verzeichnisses im momentan aktivem Fenster */
GETNEXTSELECTED "-1"; NAME=RESULT /* Name des ersten angewählten Eintrags im aktiven Fenster */
PARSE VAR PATH; PARSE VAR NAME /* Setzt Ergebnis in Variablen */
NONE /* Alle angewählten Einträge deselektieren */
ADDRESS COMMAND
'run >nil: SYS:Prefs/Printergfx SYS:Prefs/Presets/gfx-fax.pre use'
'Run MultiFax:MFRexx'
'Run MultiFax:Server -rx'
'Wait' "5 secs"
ADDRESS COMMAND PRINTER PATH||NAME
ADDRESS COMMAND
'Wait' "6 secs"
ADDRESS 'MultiFaxRexx'
exitall
ADDRESS COMMAND
'Wait' "5 secs"
'run >nil: SYS:Prefs/Printergfx ENVARC:SYS/PrinterGFX.prefs use'
ADDRESS value OPUS
BUSY OFF /* Mauszeiger auf NORMAL stellen */
END
/*F-AUS*/
EXIT